home *** CD-ROM | disk | FTP | other *** search
/ Acorn Risc Technologies StrongARM CD-ROM / Acorn Risc Technologies StrongARM CD-ROM.iso / software / apdl / _pcorder / pcorder (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  1996-04-18  |  20.2 KB  |  797 lines
  1.  --> PC_Order
  2.  This program and all documentation 
  3.  David Holden 1994
  4. A_%=205:
  5. 262343,D_%,E_%
  6. G_%:A%=0:B%=E_%:G%=G_%:H%=H_%:
  7. J_%:A%=3:B%=E_%:G%=J_%:H%=K_%:
  8. L_%:A%=4:B%=E_%:G%=L_%:H%=M_%:
  9. 262341,,E_%
  10. 262342,,E_%
  11. 8:P_%=E_%!4:Q_%=E_%!24:
  12. 262364,Q_%:
  13. &18F:
  14. !E_%=S_%
  15. 4:P_%=10
  16. 14:P_%=10
  17. :P_%-=1
  18. T_(S_%,P_%)
  19. &18E:
  20. !E_%=S_%
  21. P_%=10
  22. P_%=4
  23. P_%+=1
  24. T_(S_%,P_%)
  25. &1AF:
  26. !E_%=S_%
  27. T_(S_%,4)
  28. &1AE:
  29. !E_%=S_%
  30. T_(S_%,10)
  31. 262342,,E_%
  32. 17,18:
  33. E_%!16
  34. 2:W_%=
  35. X_%=&fff
  36. Z_(&335,a_%,b_%)
  37. E_%!24=c_%
  38. 16I%=E_%+44:
  39. ?I%>31:I%+=1:
  40. :?I%=13:
  41. d_($(E_%+44),
  42. 262351,,E_%+&C0:e_%=E_%!&C8:f_%=E_%:
  43. g_%=h_%
  44. E_%!4=-1
  45. i_(G_%)
  46. 1:!E_%=j_%:
  47. 262342,,E_%:
  48. i_(S_%):
  49. T_(S_%,4)
  50. 2:!(h_%+28+(2*24))=!(h_%+28+(2*24))
  51. l_%>=0
  52. i_(m_%):
  53. T_(m_%,0)
  54. n_(1,0)
  55. 1:!E_%=j_%:
  56. 262342,,E_%:
  57. i_(S_%):
  58. T_(S_%,4)
  59. o_%=0
  60. n_(1,1):
  61. 5:I%=M_%:J%=M_%:A%=r_%+1:
  62. ?I%<>&FF:
  63. ?I%>128 I%+=30:r_%-=1
  64. 30:J%?K%=I%?K%:
  65. :I%+=30:J%+=30
  66. 262353,L_%,0,-A%*32,416,0
  67. e_%=1
  68. 262356,,g_%,t_%,u_%
  69. 262351,,E_%+&C0:e_%=E_%!&C8:f_%=E_%!&C4:t_%=E_%!&C0:v_%=E_%!12:P_%=E_%!16:
  70. P_%=c_%
  71. 2:t_%-=140:u_%=300:g_%=h_%:
  72. 262356,,g_%,t_%,u_%
  73. i_(x_%)
  74. n_(1,0)
  75. i_(L_%)
  76. 2:t_%-=80:u_%=f_%+40:g_%=y_%:
  77. 262356,,g_%,t_%,u_%
  78. l_%=P_%-z_%
  79. i_(J_%):
  80. P_%>=z_%
  81. 5,"openarchive "+__$+" pcorder_arc":!E_%=x_%:E_%!4=P_%:
  82. 262350,,E_%:`_$=$(E_%!28):
  83. 8,17,"arcfs#pcorder_arc:$."+`_$
  84. ,,,,A`%:
  85. B`(A`%)=
  86. l I%=
  87. B`(0):I%=
  88. n_(1,2):l_%=-1
  89. 8,16,"arcfs#pcorder_arc:$."+`_$,K_%,0
  90. ,,,,A`%:K_%?A`%=&FF:E%=K_%+A`%:I%=K_%:
  91. ?I%<>45
  92. I%<E%:I%=
  93. C`(I%):
  94. :a$="":
  95. 39:a$+=
  96. (J%?I%):
  97. 40,"-")
  98. I%>=E%:
  99. I%<E%
  100. A%=1:G%=I%:H%=K_%:L%=(
  101. I_%):!E_%=0:E_%!4=-(L%*32):E_%!8=1184:E_%!12=0:
  102. 262359,J_%,E_%:!E_%=J_%:
  103. 262342,,E_%:!E_%=J_%:
  104. 262348,,E_%:$(E_%!76)=`_$:E_%!20=0:E_%!24=0:E_%!28=-1:
  105. 262341,,E_%:l_%=P_%-z_%
  106. n_(1,3):!E_%=J_%:
  107. 262342,,E_%:I%=
  108. B`(0):l_%=-1
  109. "closearchive pcorder_arc"
  110. P_%=3
  111. P_%=6:
  112. D`(x_%,P_%):
  113. E_%!8=4
  114. P_%=0
  115. X_%=&FFF:
  116. G`(F`%,0)
  117. E_%!8=4
  118. P_%=0
  119. X_%=&335:
  120. G`(H`%,0)
  121. e_%<>4
  122. 11:!E_%=S_%:
  123. 262342,,E_%
  124. e_%<>4
  125. )E_%!200=j_%:
  126. 262342,,E_%+200:
  127. P_%=8
  128. Z_(&fff,a_%,I`%)
  129. i_(m_%):
  130. T_(m_%,0)
  131. 2:t_%-=80:u_%=f_%+40:g_%=y_%:
  132. 262356,,g_%,t_%,u_%
  133. 4:!E_%=J_%:
  134. 262348,,E_%:G%=(
  135. (E_%!16)-f_%-E_%!24)
  136. A%=2:H%=K_%:J`%=
  137. I_%:J%=M_%+(r_%*30):K`%+=1:r_%+=1:$J%=`_$+"            ":J%?10=
  138. ":":J%+=12:
  139. 16:J%?I%=J`%?I%:
  140. :J%?17=13:J%?18=&FF:o_%+=
  141. L`(J%):
  142. E`:!E_%=0:E_%!4=-(r_%+10)*32:E_%!8=416:E_%!12=0:
  143. 262359,L_%,E_%
  144. 262353,L_%,0,-(r_%+1)*32,416,0
  145. e_%=4
  146. a!E_%=L_%:
  147. 262348,,E_%:I%=(
  148. (E_%!16)-f_%-E_%!24)
  149. 32:J`%=M_%+(I%*30):I%=
  150. L`(J`%+13):
  151. ?J`%<128
  152.  ?J`%=?J`%
  153. &80:o_%-=I%:K`%-=1
  154. :?J`%=?J`%
  155. &7F:o_%+=I%:K`%+=1
  156. 262353,L_%,0,-(r_%+1)*32,416,0
  157. e_%=2:t_%-=80:u_%=f_%+40:g_%=y_%:
  158. 262356,,g_%,t_%,u_%
  159. P_%=3
  160. M`:!E_%=m_%:E_%!4=0:
  161. 262350,,E_%:
  162. $(E_%!28)="" I%=
  163. n_(1,4):
  164. -B%=E_%:G%=J_%:H%=K_%:
  165. N`(m_%,1)A%=5
  166. I_%>0
  167. I!E_%=J_%:
  168. 262347,,E_%:E_%!20=0:E_%!24=I_%!12:E_%!28=-1:
  169. 262341,,E_%
  170. s_(O`%):
  171. r_%<2
  172. aL%=r_%+1:A%=7:H%=M_%:R%=
  173. (I_%):r_%-=R%:
  174. P`(1,
  175. (R%)+" duplicate items deleted.")
  176. 262353,L_%,0,-L%*32,416,0:
  177. L`(p%):
  178. ?p%<>32:p%+=1:
  179. ?p%=32:p%+=1:
  180. p_:o_%=0:K`%=0:r_%=0:I%=M_%:
  181. ?I%<>&FF:
  182. ?I%<128 K`%+=1:o_%+=
  183. L`(I%+13)
  184. I%+=30:r_%+=1:
  185. Q`:=""
  186. a$:a$="Info: v"+
  187. (A_%/100)+"/"+
  188. ((S`%)
  189. 100)+
  190. T`$>"" a$+=T`$
  191. ((S`%)
  192. 100):
  193. 131153
  194. S%,P%:a$+="/OS-"+
  195. ((U`%
  196. 10)/10):a$+="/"+
  197. (((S%
  198. 1024)*P%)
  199. 1024)+"Mb":
  200. V`%=1 a$+="/800K"
  201. a$+="/1.6Mb"
  202. a$+="/SCSI":
  203. X`%>0 a$+="-"+
  204. (X`%)
  205. a$+="/IDEFS":
  206. Z`%>0 a$+="-"+
  207. (Z`%)
  208. a`%>0 a$+="/ADFS-"+
  209. (a`%)
  210. p%,e%,a$,b`%:!c`%=S_%:c`%!4=14:
  211. 262350,,c`%:
  212. $(c`%!28)>""
  213. ?!c`%=S_%:c`%!4=15:
  214. 262350,,c`%:
  215. $(c`%!28)="" I%=
  216. n_(1,9):
  217. :p%=a_%:e%=a_%+d`%:
  218. N`(x_%,3)=
  219. b`%=e`%
  220. b`%=f`%
  221. N`(x_%,6)=
  222. b`%=g`%
  223. o_%<b`%
  224. S`%=b`%
  225. S`%=o_%
  226. I%=35-(
  227. ($h`%)
  228. 2):$p%=
  229. I%," ")+$h`%:p%=
  230. C`(p%):$p%=
  231. I%," ")+
  232. ($h`%),"-"):p%=
  233. C`(p%):$p%=
  234. R`:p%=
  235. C`(p%):?p%=13:p%+=1:$p%="From:"+
  236. 50," "):p%+=51:!p%=0:
  237. 7,14,p%:
  238. :p%+=1:
  239. ?p%=46:?p%=13:p%+=1:
  240. T!c`%=S_%:c`%!4=I%:
  241. 262350,,c`%:
  242. $(c`%!28)>""
  243. $p%="       "+$(c`%!28):p%=
  244. C`(p%)
  245. :!p%=&0D0D0D:p%+=3:P%=0:
  246. N`(x_%,3)=
  247. $p%="      ------  Use 1.44 Mb discs  ------":p%=
  248. C`(p%)
  249. HI%=M_%:
  250. ?I%<>&FF:
  251. ?I%>127
  252. ?I%<255:I%+=30:
  253. ?I%<128 $p%=$I%:I%+=30
  254. ?I%>127
  255. ?I%<255:I%+=30:
  256. ?I%<128 $p%=$p%+"        "+$I%:I%+=30
  257. C`(p%):
  258. :!p%=&0D0D0D0D:
  259. K`%<80
  260. p%+=3
  261. p%+=1
  262. 46," ")+"---------":p%=
  263. C`(p%):$p%=
  264. 20," ")+"Total cost             "+
  265. i`(S`%,10):p%=
  266. C`(p%):$p%=
  267. 46," ")+"---------":p%=
  268. C`(p%):$p%=
  269. 20," ")+"Items ordered         "+
  270. j`(K`%,10):p%=
  271. C`(p%)
  272. 6!c`%=S_%:c`%!4=14:
  273. 262350,,c`%:a$=$c`%!28:
  274. a$>""
  275. %!p%=&0D0D0D0D:
  276. K`%<80
  277. p%+=2
  278. p%+=1
  279. x$p%="Please debit Credit/Debit card : "+a$:!c`%=S_%:c`%!4=15:
  280. 262350,,c`%:$p%+=(" : Expires "+$(c`%!28)):p%=
  281. C`(p%)
  282. :!p%=&0D0D0D0D:
  283. K`%<80
  284. p%+=3
  285. p%+=1
  286. 9:!c`%=S_%:c`%!4=I%:
  287. 262350,,c`%:
  288. $(c`%!28)>"" $p%="    "+$c`%!28:p%=
  289. C`(p%)
  290. :?p%=13:p%+=1:I`%=p%:
  291. I%=a_%
  292. ?I%=13
  293. ?I%=10
  294. k`(w%,i%):E_%!200=w%:E_%!204=i%:
  295. 262350,,E_%+200:i%=E_%!228:
  296. ?i%>31:
  297. ?i%=160 ?i%=32
  298. )$i%+=1:
  299. :?i%=13:=$(E_%!228)+"   "
  300. j`(n%,l%):
  301. a$:a$=
  302. l%," ")+
  303. (n%):=
  304. a$,l%)
  305. i`(c%,l%):
  306. t%,f%:$(c`%+100)=
  307. 50," "):$(c`%+130)=
  308. (c%):f%=c`%+148:t%=c`%+100+l%:
  309. :f%-=1:
  310. ?f%=13:?t%=?f%:t%?-1=f%?-1:t%?-2=f%?-2:t%?-3=46:t%-=4:f%-=3:
  311. :?t%=?f%:t%-=1:f%-=1:
  312. ?f%=32:=$(c`%+100)
  313. l`(p%):
  314. ?p%>31:
  315. 93,?p%:p%+=1:
  316. 93,13:
  317. 93,10
  318. m`%+=1:
  319. 93,13:
  320. 93,10
  321. m`%+=1:
  322. J`%,m`%,o`%:
  323. **ptr%=page_len%:WHILE?ptr%=32:ptr%+=1:ENDWHILE
  324. GAo`%=5000:
  325. plen%=VAL($ptr%)-bott_space%:IF plen%<15 plen%=5000
  326. H%J`%=a_%:m`%=0:
  327. J`%<I`%:
  328. ?J`%=10
  329. n`:m`%+=1:
  330. m`%>o`%
  331. 93,12:m`%=0
  332. 93,?J`%
  333. :J`%+=1:
  334. 93,12:!c`%=S_%:c`%!4=14:
  335. 262350,,c`%:
  336. $(c`%!28)>"" I%=
  337. n_(1,10)
  338. C`(p%):
  339. ?p%>31:p%+=1:
  340. :p%+=1:=p%
  341. b`%,p%,c%:b`%=0:
  342. N`(x_%,3)=
  343. b`%=e`%
  344. b`%=f`%
  345. N`(x_%,6)=
  346. b`%=g`%
  347. o_%<b`%
  348. c%=b`%
  349. c%=o_%
  350. _Ac$=q`$+
  351. 100)+".":p%=c%
  352. p%<10
  353. c$+="0"+
  354. E_%!100=x_%:E_%!104=r`%:
  355. 262350,,E_%+100:$(E_%!128)=c$:E_%!108=0:E_%!112=0:
  356. 262349,,E_%+100:E_%!100=x_%:E_%!104=4:
  357. 262350,,E_%+100:$(E_%!128)=
  358. (K`%)+" ":E_%!108=0:E_%!112=0:
  359. 262349,,E_%+100:
  360. R_:P_%=E_%!4:
  361. 4,5,6,7,8,9,14:
  362. T_(S_%,P_%+1)
  363. 10,15:
  364. T_(S_%,4)
  365. Y_:E_%!200=S_%:
  366. 262342,,E_%+200:
  367. P_%=1
  368. s`(S_%,P_%+3,j_%,P_%):
  369. i_(j_%):
  370. o_%=0
  371. n_(1,1):
  372. n_(3,5)=2:
  373. o_%=0:K`%=0:r_%=0:!M_%=&FFFFFFFF:!E_%=0:E_%!4=-(r_%+10)*32:E_%!8=416:E_%!12=0:
  374. 262359,L_%,E_%:
  375. 262353,L_%,0,-(r_%+10)*32,416,0:
  376. t`(w%,i%,v%):E_%!100=w%:E_%!104=i%:
  377. 262350,,E_%+100:E_%!108=0:E_%!112=0:$(E_%!128)=
  378. (v%):
  379. 262349,,E_%+100:
  380. u`(w%,i%,s$):E_%!100=w%:E_%!104=i%:
  381. 262350,,E_%+100:E_%!108=0:E_%!112=0:$(E_%!128)=s$:
  382. 262349,,E_%+100:
  383. v`(w%,i%):E_%!100=w%:E_%!104=i%:
  384. 262350,,E_%+100:I%=(E_%!128):
  385. ?I%>31:I%+=1:
  386. :?I%=13:=$(E_%!128)
  387. w`(w%):E_%!&100=w%:
  388. 262344,,E_%+&100
  389. 262346,,E_%+&100
  390. s`(x`%,y`%,z`%,_`%):E_%!200=x`%:E_%!204=y`%:
  391. 262350,,E_%+200:E_%!240=z`%:E_%!244=_`%:
  392. 262350,,E_%+240:$(E_%!268)=$(E_%!228):
  393. G`(w%,i%):!E_%=w%:
  394. 262347,,E_%:X%=E_%!4-E_%!20:Y%=E_%!16-E_%!24:E_%!4=i%:
  395. 262350,,E_%:!E_%=w%:E_%!4=5:E_%!8=E_%!8+X%:E_%!12=E_%!12+Y%:E_%!16=E_%!16+X%:E_%!20=E_%!20+Y%:E_%!24=0:E_%!28=0:E_%!32=&7FFFFFFF:E_%!36=&7FFFFFFF
  396. 262352,,E_%:
  397. o_%=0
  398. 1!c`%=S_%:c`%!4=4:
  399. 262350,,c`%:
  400. $(c`%!28)=""
  401. >!c`%=S_%:c`%!4=5:
  402. 262350,,c`%:
  403. $(c`%!28)="" I%=
  404. n_(1,1):
  405. &FFF:
  406. a_:L%=I`%-a_%:E_%!&80=F`%:E_%!&84=3
  407. &335:
  408. ``:E_%!&80=H`%:E_%!&84=3:L%=b_%-a_%
  409. 262350,,E_%+&80:I%=(E_%!&9C):
  410. $(I%),"."):I%+=1:
  411. :Aa$=$(I%):
  412. 262351,,E_%:E_%!20=E_%!12:E_%!24=E_%!16:E_%!28=!E_%:E_%!32=E_%!4:E_%!36=L%:E_%!40=X_%:E_%!16=1:$(E_%+44)=Aa$:!E_%=(
  413. (Aa$)+49)
  414. 3:E_%!12=0
  415. 262375,17,E_%,E_%!20,E_%!24:
  416. Z_(Ba%,s%,e%):
  417. LI%=E_%+44:
  418. ?I%>31:I%+=1:
  419. :?I%=13:
  420. 8,10,$(E_%+44),Ba%,,s%,e%:
  421. Ba%=&FFF
  422. >!c`%=S_%:c`%!4=14:
  423. 262350,,c`%:
  424. $(c`%!28)>"" I%=
  425. n_(1,11)
  426. p%:p%=a_%:!p%=Ca%:
  427. N`(x_%,3)=
  428. c%=e`%
  429. c%=f`%
  430. N`(x_%,6)=
  431. c%=g`%
  432. o_%<c%
  433. p%!4=c%
  434. p%!4=o_%
  435. p%!8=
  436. N`(x_%,3):p%!12=
  437. N`(x_%,6):p%+=16:
  438. 10:E_%!200=S_%:E_%!204=I%:
  439. 262350,,E_%+200:$p%=$(E_%!228):p%=
  440. C`(p%):
  441. I%=14
  442. 15:E_%!200=S_%:E_%!204=I%:
  443. 262350,,E_%+200:$p%=$(E_%!228):p%=
  444. C`(p%):
  445. :p%=(p%+3)
  446. 3:J%=M_%
  447. ?J%<>&FF:
  448. ?J%<128:
  449. 29:p%?I%=J%?I%:
  450. :p%+=30
  451. J%+=30:
  452. :?p%=&FF:b_%=p%+1:
  453. T_(w%,i%):!E_%=w%:E_%!4=i%:
  454. 262350,,E_%:I%=E_%!28:
  455. ?I%>31:I%+=1:
  456. :?I%=13:
  457. 262354,w%,i%,,,-1,
  458. $(E_%!28):
  459. N`(w%,i%):E_%!300=w%:E_%!304=i%:
  460. 262350,,E_%+300:
  461. (E_%!324
  462. 1<<21):=
  463. D`(w%,i%):
  464. N`(w%,i%)=
  465. E_%!308=0
  466. E_%!308=1<<21
  467. %E_%!312=1<<21:
  468. 262349,,E_%+300:
  469. B`(Da%):
  470. 262380,Ea%+Da%,-1
  471. e%<(Ea%+Da%):=
  472. m`,Ga,Ha,Ia,m%:Ga=1:m`=2:Ia=4:Ha=&80:
  473. Ja%&200:m%=Ja%:y_%=
  474. Ka(m%,"APDL Order",184):m%=
  475. La("Search",0,0):m%=
  476. La("Address",0,0):m%=
  477. La("Print order",0,0):m%=
  478. La("Recalculate",0,0):m%=
  479. La("Clear all",0,0)
  480. La("Compact",0,0):m%=
  481. La("Sort list",0,0):m%=
  482. La("Save order",0,H`%):m%=
  483. La("Save text",Ha,F`%):h_%=
  484. Ka(m%,"PC Order",180):m%=
  485. La("Help text",0,0):m%=
  486. La("Address",0,0)
  487. La("Linefeeds",Ga,0)
  488. La("Linefeeds",0,0)
  489. La("Info",m`,Ma%):m%=
  490. La("Quit",Ha,0):
  491. Ka (a%,Na$,Oa%):$a%=Na$:a%!12=&70207:a%!16=Oa%:a%!20=40:a%!24=0:m%=a%+28:=a%
  492. La (Pa$,Qa%,Ra%):!m%=Qa%:m%!4=Ra%:m%!8=&7000001:$(m%+12)=Pa$:=m%+24
  493. Sa (Ta$,Ua%,Ta%):m%!0=Ua%:m%!4=0:m%!8=&7000101:m%!12=Ta%:m%!16=-1:m%!20=127:
  494. Ta$<>"?"
  495. $Ta%=Ta$
  496. =m%+24
  497. i_(w%):!E_%=w%:
  498. 262347,,E_%:E_%!28=-1:
  499. 262341,,E_%:
  500. Va (Wa$,Xa%):!E_%=Xa%:E_%!4=-8:E_%!8=0:E_%!12=56:E_%!16=96:E_%!20=&2002:$(E_%+24)="!"+Wa$:
  501. 262338,,E_%
  502. I%:=I%
  503. 6,128,252
  504. ,L%,H%:F%=L%+(H%<<8):
  505. 93,0:
  506. 6,128,252
  507. ,L%,H%:
  508. L%+(H%<<8)>=F%:=
  509. n_(3,6)=2:=
  510. C_ (Ya$,Za%):*FX229,1
  511. 263874:D_%=&C31:!E_%=
  512. :$(E_%+4)="Error "+
  513. )+": "+Ya$++
  514. 262367,E_%,1,aa%:
  515. "Closearchive pcorder_res"
  516. 263874:
  517. 262365,ca%,&4B534154:
  518. n_(da%,ea%):
  519. p%:p%=fa%:
  520. ea%>0:
  521. :p%+=1:
  522. ?p%<32:p%+=1:ea%-=1:
  523. P`(da%,$p%)
  524. P`(da%,a$):E_%!&80=0:$(E_%+&84)=a$+
  525. 262367,E_%+&80,16
  526. da%,aa%
  527. ,da%:=da%
  528. :I%+=1:
  529. ?I%=34
  530. ?I%<32:
  531. ?I%<32:=""
  532. :I%+=1:
  533. ?I%<>32:
  534. ?I%<32:=""
  535. R%J%=I%:
  536. :J%+=1:
  537. ?J%<32:?J%=13:=$I%
  538. ha (ia%):
  539. Ta% ia%:E%=Ta%+ia%:
  540. U`%>200
  541. t$="arcfs#pcorder_res:$.Templ_3"
  542. t$="arcfs#pcorder_res:$.Templ_2"
  543. 262361,,t$:
  544. 262363,,a_%,Ta%,E%,-1,"info",0
  545. ,,R%:
  546. 262337,,a_%
  547. 262363,,a_%,R%,E%,-1,"savetxt",0
  548. ,,R%:
  549. 262337,,a_%
  550. 262363,,a_%,R%,E%,-1,"saveord",0
  551. ,,R%:
  552. 262337,,a_%
  553. 262363,,a_%,R%,E%,-1,"main",0
  554. 262337,,a_%
  555. 262363,,a_%,R%,E%,-1,"addr",0
  556. ,,R%:
  557. 262337,,a_%
  558. 262363,,a_%,R%,E%,-1,"check",0
  559. ,,R%:
  560. 262337,,a_%
  561. 262363,,a_%,R%,E%,-1,"help",0
  562. ,,R%:
  563. 262337,,a_%
  564. 262363,,a_%,R%,E%,-1,"browse",0
  565. 262337,,a_%
  566. 262363,,a_%,R%,E%,-1,"list",0
  567. ,,R%:
  568. 262337,,a_%
  569. 262363,,a_%,R%,E%,-1,"find",0
  570. ,,R%:
  571. 262337,,a_%
  572. 262362:!E_%=G_%:
  573. 262348,,E_%:!E_%=0:E_%!4=-(32*ja%):E_%!8=1208:E_%!12=0:
  574. 262359,G_%,E_%
  575. !E_%=Ma%:E_%!4=0:
  576. 262350,,E_%:$(E_%!28)=A_$:!E_%=Ma%:E_%!4=1:
  577. 262350,,E_%:$(E_%!28)=ka$:!E_%=Ma%:E_%!4=2:
  578. 262350,,E_%:$(E_%!28)=$la%:
  579. :V`%=1:
  580. U`%<300 V`%=1:
  581. 393800,0
  582. d%,n%:a`%=0:Z`%=0:X`%=0:Y`%=
  583. :W`%=
  584. 131113,33,I%,oa%,255:J%=oa%:
  585. ?J%>32:J%+=1:
  586. :?J%=13:
  587. J%>oa%
  588. $oa%,2)<>"FS" $oa%+="FS"
  589. 131129,,$oa%+"_Drives"
  590. n%;F%:
  591. ,,d%:
  592. $oa%,3)="IDE" Y`%=
  593. :Z`%=d%
  594. $oa%,4)="SCSI" W`%=
  595. :X`%=d%
  596. $oa%,4)="ADFS" a`%=d%
  597. 8,17,"arcfs#pcorder_res:$.messages"
  598. F%,,,,A`%:
  599. 1)<>1 I%=
  600. P`(1,"Messages file not found - unable to continue"):
  601. fa% A`%+4:qa%=fa%+A`%:
  602. 8,16,"arcfs#pcorder_res:$.messages",fa%,0:?qa%=13:ra%=0:I%=fa%:J%=I%:
  603. I%<qa%:
  604. :I%+=1:
  605. ?I%=32:
  606. :I%+=1:
  607. ?I%<>32:
  608. :?J%=?I%:I%+=1:J%+=1:
  609. ?I%<32:?J%=13:I%+=1:J%+=1:ra%+=1:
  610. 262336,200,&4B534154,"PC Order"
  611. U`%,ca%:
  612. (-50)
  613. U`%=200
  614. (-26)
  615. E_%&240,oa%&100,aa% 16,a_% d`%,c`% 160,ta%&1000,M_%&4000:$aa%="PC Order":!M_%=&FFFFFFFF:Ea%=
  616. -&8000:K_%=
  617. :ba%=
  618. $+" During initialisation",
  619. 35,"APDL_PCorder$Dir",E_%,256,0,3
  620. ,,I%:E_%?I%=13:ua$=$E_%:I`%=a_%:?E_%=13:
  621. 131107,"PCorder$Distrib",E_%,256,0,3
  622. ,,I%:E_%?I%=13:T`$=$E_%:
  623. 263872:
  624. 5,"openarchive "+ua$+".resources pcorder_res":ba%=
  625. ha(&480):
  626. pa:c_%=
  627. Va("pcorder",-1):D_%=%110000110001:
  628. V`%>1 !E_%=x_%:E_%!4=3:E_%!8=1<<21:E_%!12=1<<21:
  629. 262349,,E_%
  630. xa$<>""
  631. za%=0:
  632. U`%>200
  633. 12,10,ua$+".^",ta%,1,za%,&1000,"pc_*"
  634. ,,,N%,za%:
  635. ta%!16=3
  636. @I%=ta%+20:
  637. ?I%>31:I%+=1:
  638. :?I%=13:
  639. d_(ua$+".^."+$(ta%+20),
  640. za%<0
  641. :J`%=ta%:
  642. 12,9,ua$+".^",ta%,100,za%,&1000,"PC_*"
  643. ,,,N%:
  644. za%<=N%
  645. :I%=J`%:
  646. :I%+=1:
  647. ?I%<32:?I%=13:
  648. 8,17,ua$+".^."+$J`%
  649. ,,T%:T%=(T%>>8)
  650. &FFF:
  651. T%=&DDC
  652. T%=&3FB
  653. d_(ua$+".^."+$J`%,
  654. :J`%+=1:
  655. J`%?-1<31:za%+=1:
  656. za%<0
  657. n_(3,7)=2
  658. 263873:
  659. 8,17,"arcfs#pcorder_res:$.setup"
  660. ,,,,A`%:
  661. _a% A`%+4:qa%=_a%+A`%:
  662. 8,16,"arcfs#pcorder_res:$.setup",_a%,0:_a%?(A`%+1)=13:
  663. I%=_a%
  664. ?I%=10? I%=13
  665. :J`%=_a%:O%=0:D%=0:
  666. J`%<qa%:
  667. $J`%,4)
  668. "ADDR":
  669. `a:h`%=J`%:O%=0
  670. "PURP":
  671. `a:la%=J`%:O%=0
  672. "CURR":
  673. `a:q`$=
  674. (?J`%):O%=0
  675. "INST":
  676. Ab:H_%=J`%:ja%=0:
  677. Ab:ja%+=1:
  678. ?J`%=&FF:O%=0
  679. "LABE":Bb%=
  680. :O%=0
  681. "INVO":
  682. `a:g`%=
  683. "HDIN":
  684. `a:e`%=
  685. ($J`%):O%=0
  686. "DDIN":
  687. `a:f`%=
  688. ($J`%):O%=0
  689. d_(f$,Ya%):
  690. B`(0):
  691. $,Ya%):
  692. $a_%=f$:__$=f$:I%=a_%:
  693. $I%,"."):I%+=1:
  694. :Cb$=$(I%):
  695. 5,"openarchive "+__$+" pcorder_arc":
  696. 12,10,"arcfs#pcorder_arc:$",ta%,200,0,&1000,0
  697. ,,,Db%:I%=Eb%-1:
  698. I%>0:!E_%=x_%:E_%!4=z_%+I%:
  699. 262340,,E_%:I%-=1:
  700. :J`%=ta%:Eb%=0
  701. Fb%=0
  702. Db%-1:J`%+=20:N%=J`%:
  703. ?J`%>0:J`%+=1:
  704. :?J`%=13:
  705. ?N%>64
  706. N%!-4=1
  707. ,!E_%=x_%:E_%!4=z_%:
  708. 262350,,E_%:
  709. Eb%=0
  710. :$(E_%!28)=$N%:E_%!8=0:E_%!12=0:
  711. 262349,,E_%:t%=E_%!20
  712. :E_%!4=x_%:E_%!12=E_%!12-(56*Eb%):E_%!20=E_%!20-(56*Eb%):E_%!28=N%:
  713. 262338,z_%+Fb%,E_%+4
  714. :Eb%+=1
  715. :J`%=(J`%+4)
  716. :!E_%=x_%:E_%!4=z_%-1:
  717. 262340,,E_%:!E_%=x_%:E_%!4=0:
  718. 262350,,E_%:E_%!20=t%+16:E_%!12=E_%!20-((Eb%*56)+28):E_%!4=x_%:
  719. 262338,z_%-1,E_%+4:!E_%=0:E_%!4=t%-(20+(Eb%*56)):E_%!8=386:E_%!12=0:
  720. 262359,x_%,E_%
  721. 5,"closearchive pcorder_arc":w_%=
  722. :!E_%=J_%:
  723. 262342,,E_%:!E_%=x_%:
  724. 262342,,E_%:
  725. i_(x_%):
  726. i_(L_%):
  727. p%,Gb%:
  728. 8,16,xa$,a_%,0:p%=a_%:Gb%=!p%:
  729. (Gb%<>Ca%)
  730. (Gb%<>100)I%=
  731. n_(1,8):
  732. 'K`%=0:o_%=0:r_%=0:
  733. p%!8=
  734. D`(x_%,3)
  735. p%!12=
  736. D`(x_%,6)
  737. Yp%+=16:
  738. 10:!E_%=S_%:E_%!4=I%:
  739. 262350,,E_%:$(E_%!28)=$p%:p%=
  740. C`(p%):
  741. Gb%<>100
  742. I%=14
  743. 15:!E_%=S_%:E_%!4=I%:
  744. 262350,,E_%:$(E_%!28)=$p%:p%=
  745. C`(p%):
  746. :p%=(p%+3)
  747. 3:J%=M_%:I%=-1:
  748. :I%+=1:J%?I%=p%?I%:
  749. p%?I%=&FF:
  750. I_%&800:
  751. 2:P%=I_%:[OPT Hb:adr r8,Ib:mov r0,r0,lsl#2:ldr pc,[r8,r0]:.Jb equd 0:equd 0
  752. 8G.Ib equd Kb:equd Lb:equd Mb:equd Nb:equd Ob:equd Pb:equd Qb:equd s_
  753. AF.Rb equd 0:equd 0:equd 0:equd 0:equd 0:equd 0:equd 0:equd 0:equd 0
  754. .Sb:ldr r2,[r1,#28]:adr r3,Rb:.Tb ldrb r0,[r2],#1:cmp r0,#61:blt Ub:cmp r0,#122:andle r0,r0,#&DF:.Ub strb r0,[r3],#1:cmp r0,#31:bgt Tb:mov pc,r14
  755. .Qb:stmfd r13!,{r14}:bl Sb:str r6,[r1]:bl Vb:cmp r10,#0:blt Wb:.Xb str r10,Jb:ldrb r0,[r7]:cmp r0,#&FF:moveq r0,#0:ldmeqfd r13!,{pc}:add r6,r7,#4:.Yb mov r5,r6:adr r4,Rb:.Zb ldrb r0,[r5],#1:ldrb r2,[r4],#1:cmp r2,#31
  756. movlt r0,r7:ldmltfd r13!,{pc}:cmp r0,#61:blt ab:cmp r0,#122:andle r0,r0,#&DF:.ab cmp r2,#35:beq Zb:cmp r0,r2:beq Zb:ldrb r0,[r6,#1]!:cmp r0,#32:bge Yb:add r6,r6,#1:ldrb r0,[r6]:cmp r0,#32:beq Yb
  757. u_.Wb ldrb r0,[r7],#1:cmp r0,#31:bgt Wb:sub r10,r10,#32:ldrb r0,[r7]:cmp r0,#32:beq Wb:bal Xb
  758. .Pb:stmfd r13!,{r14}:bl Sb:str r6,[r1]:bl Vb:cmp r10,#0:blt bb:.cb str r10,Jb:ldrb r0,[r7]:cmp r0,#&FF:moveq r0,#0:ldmeqfd r13!,{pc}:add r5,r7,#4:.db adr r4,Rb:.eb ldrb r0,[r5],#1:ldrb r2,[r4],#1:cmp r2,#31:movlt r0,r7
  759. ldmltfd r13!,{pc}:cmp r0,#61:blt fb:cmp r0,#122:andle r0,r0,#&DF:.fb cmp r2,#35:beq eb:cmp r0,r2:beq eb:cmp r0,#32:bne db:.bb ldrb r0,[r7],#1:cmp r0,#31:bgt bb:sub r10,r10,#32:bal cb
  760. .s_:mov r6,#1:mov r0,#0
  761. 6.gb cmp r6,#0:moveq pc,r14:mov r6,#0:sub r4,r7,#30
  762. .hb add r4,r4,#30:add r5,r4,#30:mov r1,#0:ldrb r3,[r5]:cmp r3,#&FF:beq gb:.ib ldrb r2,[r4,r1]:ldrb r3,[r5,r1]:cmp r2,r3:blt hb:bgt jb:add r1,r1,#1:cmp r1,#30:blt ib
  763. pmov r5,r4:.kb ldrb r1,[r5,#30]:strb r1,[r5]:add r5,r5,#1:cmp r1,#&FF:bne kb:add r0,r0,#1:add r6,r6,#1:bal hb
  764. .jb mov r1,#29:add r6,r6,#1:.lb ldrb r2,[r4,r1]:ldrb r3,[r5,r1]:strb r2,[r5,r1]:strb r3,[r4,r1]:subs r1,r1,#1:bpl lb:bal hb
  765. .Vb:swi "Wimp_GetWindowState":ldr r2,[r1,#24]:bic r10,r2,#%11111:sub r2,r2,#32:.mb adds r2,r2,#32:movpl pc,r14:.nb ldrb r0,[r7],#1:cmp r0,#31:bge nb:bal mb
  766. .Mb:ldrb r0,[r7],#1:cmp r0,#32:bge Mb:subs r6,r6,#1:bne Mb:ldrb r0,[r7]:cmp r0,#32:cmpne r0,#&FF:movne r0,r7:movne pc,r14:sub r7,r7,#1:.ob ldrb r0,[r7,#-1]!:cmp r0,#32:bge ob:ldrb r0,[r7,#1]:cmp r0,#32:beq ob:add r0,r7,#1
  767. mov pc,r14
  768. J.Lb:mov r10,r7:.pb ldrb r1,[r6],#1:strb r1,[r10],#1:cmp r1,#&FF:bne pb
  769. {mov r0,#1:.qb ldrb r1,[r7],#1:cmp r1,#&FF:moveq pc,r14:cmp r1,#32:bge qb:mov r1,#0:strb r1,[r7,#-1]:add r0,r0,#1:bal qb
  770. .Ob:stmfd r13!,{r14}:str r6,[r1]:swi "Wimp_RedrawWindow":.rb bl sb:.tb ldr r4,[r1,#40]:ldr r3,[r1,#32]:sub r5,r4,r3:mov r5,r5,lsr#5:add r5,r5,#1:sub r9,r9,#8:bl ub:.vb mov r10,#0:ldrb r0,[r2]:tst r0,#%10000000:moveq r0,#7
  771. movne r0,#2:swi "Wimp_SetColour":.wb ldrb r0,[r2,r10]:cmp r0,#&FF:beq xb:and r0,r0,#&7F:swi "OS_WriteC":add r10,r10,#1:cmp r10,#12:blt wb:add r2,r2,#16:.yb ldrb r0,[r2],#1:cmp r0,#31:swigt "OS_WriteC":bgt yb:subs r5,r5,#1
  772. !Hbmi xb:sub r9,r9,#32:bl ub:bal vb:.xb swi "Wimp_GetRectangle":bal rb
  773. .Nb:stmfd r13!,{r14}:str r6,[r1]:swi "Wimp_RedrawWindow":.zb bl sb:._b ldr r4,[r1,#40]:ldr r3,[r1,#32]:sub r5,r4,r3:mov r5,r5,lsr#5:add r5,r5,#1:sub r9,r9,#8:bl ub:.`b ldrb r11,[r2]:cmp r11,#45:moveq r0,#11
  774. swieq "Wimp_SetColour":ldrb r0,[r2]:cmp r0,#31:addgt r2,r2,#4:.Ac ldrb r0,[r2],#1:cmp r0,#&FF:beq Bc:cmp r0,#31:swigt "OS_WriteC":bgt Ac:cmp r11,#45:moveq r0,#7:swieq "Wimp_SetColour":cmp r11,#45:moveq r0,#7
  775. swieq "Wimp_SetColour"
  776. GVsubs r5,r5,#1:bmi Bc:sub r9,r9,#32:bl ub:bal `b:.Bc swi "Wimp_GetRectangle":bal zb
  777. .Kb:stmfd r13!,{r14}:str r6,[r1]:swi "Wimp_RedrawWindow":.Cc bl sb:ldr r4,[r1,#40]:ldr r3,[r1,#32]:sub r5,r4,r3:mov r5,r5,lsr#5:add r5,r5,#1:sub r9,r9,#8:bl ub
  778. .Dc ldrb r0,[r2],#1:cmp r0,#&FF:beq Ec:cmp r0,#
  779. "{":cmpne r0,#
  780. "}":beq Fc:cmp r0,#31:swigt "OS_WriteC":bgt Dc:subs r5,r5,#1:bmi Ec:sub r9,r9,#32:bl ub:bal Dc:.Ec swi "Wimp_GetRectangle":bal Cc
  781. mI.Fc cmp r0,#
  782. "{":moveq r0,#11:movne r0,#7:swi "Wimp_SetColour":bal Dc
  783. .sb:cmp r0,#0:ldmeqfd r13!,{pc}:ldr r0,[r1,#4]:ldr r2,[r1,#20]:sub r8,r0,r2:add r8,r8,#8:ldr r0,[r1,#16]:ldr r2,[r1,#24]:sub r9,r0,r2:ldr r3,[r1,#40]:sub r3,r9,r3:mov r3,r3,lsr#5:mov r2,r3,lsl#5:sub r9,r9,r2:mov r2,r7
  784. wsubs r3,r3,#1:movmi pc,r14:.Gc ldrb r0,[r2],#1:cmp r0,#&FF:ldmeqfd r13!,{pc}:cmp r0,#31:bgt Gc:subs r3,r3,#1:bpl Gc
  785. .ub swi 256+25:swi 256+4:mov r0,r8:swi "OS_WriteC":mov r0,r0,lsr#8:swi "OS_WriteC":mov r0,r9:swi "OS_WriteC":mov r0,r0,lsr#8:swi "OS_WriteC":movs pc,r14
  786. ?J`%>31:J`%+=1:
  787. :J`%+=1:
  788. ?J`%>32:J`%+=1:
  789. ?J`%<33:J`%+=1:
  790. sa:l_%=-1:w_%=
  791. :Eb%=0:o_%=0:K`%=0:r_%=0:T`$="":A_$="APDL PCorder Ver "+
  792. (A_%/100):Ca%=200:ka$="
  793.  David Holden 1994":d`%=&6000:W_%=
  794. :Bb%=
  795. :k_%=
  796. :Hc%=5:f`%=150:e`%=180:g`%=500:z_%=8:r`%=5:
  797.